*!version 23 September 2022
/*Transforms isco88 4 digit codes into csco15 (Chinese Classification of Occupations) 5 digit codes. 

Reference:
Freda Yanrong WANG, Raymond WONG & Yujia HOU. (2024) Research on the Occupational Structure Changes in Chinese Society. Bejing:People's Publishing House. ISBN:978-7-01-026546-9.

*/

program define isco88csco15
	version 17
	syntax newvarname, csko(varname numeric)

	quietly gen `varlist'=`csko'
	quietly replace `varlist'=	10000	 if (`csko' == 	1000	)
	quietly replace `varlist'=	10200	 if (`csko' == 	1100	)
	quietly replace `varlist'=	10201	 if (`csko' == 	1110	)
	quietly replace `varlist'=	10201	 if (`csko' == 	1110	)
	quietly replace `varlist'=	10202	 if (`csko' == 	1120	)
	quietly replace `varlist'=	10202	 if (`csko' == 	1120	)
	quietly replace `varlist'=	10500	 if (`csko' == 	1130	)
	quietly replace `varlist'=	10500	 if (`csko' == 	1130	)
	quietly replace `varlist'=	10300	 if (`csko' == 	1140	)
	quietly replace `varlist'=	10300	 if (`csko' == 	1141	)
	quietly replace `varlist'=	10400	 if (`csko' == 	1142	)
	quietly replace `varlist'=	10400	 if (`csko' == 	1143	)
	quietly replace `varlist'=	10601	 if (`csko' == 	1200	)
	quietly replace `varlist'=	10601	 if (`csko' == 	1210	)
	quietly replace `varlist'=	10601	 if (`csko' == 	1210	)
	quietly replace `varlist'=	10601	 if (`csko' == 	1220	)
	quietly replace `varlist'=	10601	 if (`csko' == 	1221	)
	quietly replace `varlist'=	10601	 if (`csko' == 	1222	)
	quietly replace `varlist'=	10601	 if (`csko' == 	1223	)
	quietly replace `varlist'=	10601	 if (`csko' == 	1224	)
	quietly replace `varlist'=	10601	 if (`csko' == 	1225	)
	quietly replace `varlist'=	10601	 if (`csko' == 	1226	)
	quietly replace `varlist'=	10601	 if (`csko' == 	1227	)
	quietly replace `varlist'=	10601	 if (`csko' == 	1228	)
	quietly replace `varlist'=	10601	 if (`csko' == 	1229	)
	quietly replace `varlist'=	10601	 if (`csko' == 	1230	)
	quietly replace `varlist'=	10601	 if (`csko' == 	1231	)
	quietly replace `varlist'=	10601	 if (`csko' == 	1232	)
	quietly replace `varlist'=	10601	 if (`csko' == 	1233	)
	quietly replace `varlist'=	10601	 if (`csko' == 	1234	)
	quietly replace `varlist'=	10601	 if (`csko' == 	1235	)
	quietly replace `varlist'=	10601	 if (`csko' == 	1236	)
	quietly replace `varlist'=	10601	 if (`csko' == 	1237	)
	quietly replace `varlist'=	10601	 if (`csko' == 	1238	)
	quietly replace `varlist'=	10601	 if (`csko' == 	1239	)
	quietly replace `varlist'=	10601	 if (`csko' == 	1300	)
	quietly replace `varlist'=	10601	 if (`csko' == 	1310	)
	quietly replace `varlist'=	10601	 if (`csko' == 	1311	)
	quietly replace `varlist'=	10601	 if (`csko' == 	1312	)
	quietly replace `varlist'=	10601	 if (`csko' == 	1313	)
	quietly replace `varlist'=	10601	 if (`csko' == 	1314	)
	quietly replace `varlist'=	10601	 if (`csko' == 	1315	)
	quietly replace `varlist'=	10601	 if (`csko' == 	1316	)
	quietly replace `varlist'=	10601	 if (`csko' == 	1317	)
	quietly replace `varlist'=	10601	 if (`csko' == 	1318	)
	quietly replace `varlist'=	10601	 if (`csko' == 	1319	)
	quietly replace `varlist'=	20000	 if (`csko' == 	2000	)
	quietly replace `varlist'=	20100	 if (`csko' == 	2100	)
	quietly replace `varlist'=	20113	 if (`csko' == 	2110	)
	quietly replace `varlist'=	20113	 if (`csko' == 	2111	)
	quietly replace `varlist'=	20113	 if (`csko' == 	2112	)
	quietly replace `varlist'=	20113	 if (`csko' == 	2113	)
	quietly replace `varlist'=	20113	 if (`csko' == 	2114	)
	quietly replace `varlist'=	20113	 if (`csko' == 	2120	)
	quietly replace `varlist'=	20113	 if (`csko' == 	2121	)
	quietly replace `varlist'=	20113	 if (`csko' == 	2122	)
	quietly replace `varlist'=	20210	 if (`csko' == 	2130	)
	quietly replace `varlist'=	20210	 if (`csko' == 	2131	)
	quietly replace `varlist'=	20210	 if (`csko' == 	2132	)
	quietly replace `varlist'=	20210	 if (`csko' == 	2139	)
	quietly replace `varlist'=	20200	 if (`csko' == 	2140	)
	quietly replace `varlist'=	20218	 if (`csko' == 	2141	)
	quietly replace `varlist'=	20218	 if (`csko' == 	2142	)
	quietly replace `varlist'=	20211	 if (`csko' == 	2143	)
	quietly replace `varlist'=	20211	 if (`csko' == 	2144	)
	quietly replace `varlist'=	20207	 if (`csko' == 	2145	)
	quietly replace `varlist'=	20206	 if (`csko' == 	2146	)
	quietly replace `varlist'=	20203	 if (`csko' == 	2147	)
	quietly replace `varlist'=	20202	 if (`csko' == 	2148	)
	quietly replace `varlist'=	20200	 if (`csko' == 	2149	)
	quietly replace `varlist'=	20113	 if (`csko' == 	2200	)
	quietly replace `varlist'=	20113	 if (`csko' == 	2210	)
	quietly replace `varlist'=	20113	 if (`csko' == 	2211	)
	quietly replace `varlist'=	20108	 if (`csko' == 	2212	)
	quietly replace `varlist'=	20107	 if (`csko' == 	2213	)
	quietly replace `varlist'=	20500	 if (`csko' == 	2220	)
	quietly replace `varlist'=	20501	 if (`csko' == 	2221	)
	quietly replace `varlist'=	20599	 if (`csko' == 	2222	)
	quietly replace `varlist'=	20306	 if (`csko' == 	2223	)
	quietly replace `varlist'=	20506	 if (`csko' == 	2224	)
	quietly replace `varlist'=	20599	 if (`csko' == 	2229	)
	quietly replace `varlist'=	20508	 if (`csko' == 	2230	)
	quietly replace `varlist'=	20508	 if (`csko' == 	2230	)
	quietly replace `varlist'=	20800	 if (`csko' == 	2300	)
	quietly replace `varlist'=	20801	 if (`csko' == 	2310	)
	quietly replace `varlist'=	20801	 if (`csko' == 	2310	)
	quietly replace `varlist'=	20803	 if (`csko' == 	2320	)
	quietly replace `varlist'=	20803	 if (`csko' == 	2320	)
	quietly replace `varlist'=	20803	 if (`csko' == 	2330	)
	quietly replace `varlist'=	20803	 if (`csko' == 	2331	)
	quietly replace `varlist'=	20804	 if (`csko' == 	2332	)
	quietly replace `varlist'=	20805	 if (`csko' == 	2340	)
	quietly replace `varlist'=	20805	 if (`csko' == 	2340	)
	quietly replace `varlist'=	20899	 if (`csko' == 	2350	)
	quietly replace `varlist'=	20104	 if (`csko' == 	2351	)
	quietly replace `varlist'=	20899	 if (`csko' == 	2352	)
	quietly replace `varlist'=	20899	 if (`csko' == 	2359	)
	quietly replace `varlist'=	29900	 if (`csko' == 	2400	)
	quietly replace `varlist'=	20600	 if (`csko' == 	2410	)
	quietly replace `varlist'=	20603	 if (`csko' == 	2411	)
	quietly replace `varlist'=	20608	 if (`csko' == 	2412	)
	quietly replace `varlist'=	20699	 if (`csko' == 	2419	)
	quietly replace `varlist'=	20700	 if (`csko' == 	2420	)
	quietly replace `varlist'=	20703	 if (`csko' == 	2421	)
	quietly replace `varlist'=	20701	 if (`csko' == 	2422	)
	quietly replace `varlist'=	20799	 if (`csko' == 	2429	)
	quietly replace `varlist'=	21007	 if (`csko' == 	2430	)
	quietly replace `varlist'=	21007	 if (`csko' == 	2431	)
	quietly replace `varlist'=	21006	 if (`csko' == 	2432	)
	quietly replace `varlist'=	20103	 if (`csko' == 	2440	)
	quietly replace `varlist'=	20102	 if (`csko' == 	2441	)
	quietly replace `varlist'=	20103	 if (`csko' == 	2442	)
	quietly replace `varlist'=	20101	 if (`csko' == 	2443	)
	quietly replace `varlist'=	21005	 if (`csko' == 	2444	)
	quietly replace `varlist'=	20104	 if (`csko' == 	2445	)
	quietly replace `varlist'=	20709	 if (`csko' == 	2446	)
	quietly replace `varlist'=	20900	 if (`csko' == 	2450	)
	quietly replace `varlist'=	20901	 if (`csko' == 	2451	)
	quietly replace `varlist'=	20905	 if (`csko' == 	2452	)
	quietly replace `varlist'=	20902	 if (`csko' == 	2453	)
	quietly replace `varlist'=	20902	 if (`csko' == 	2450	)
	quietly replace `varlist'=	20903	 if (`csko' == 	2455	)
	quietly replace `varlist'=	20708	 if (`csko' == 	2460	)
	quietly replace `varlist'=	20708	 if (`csko' == 	2460	)
	quietly replace `varlist'=	20200	 if (`csko' == 	3000	)
	quietly replace `varlist'=	20200	 if (`csko' == 	3100	)
	quietly replace `varlist'=	20200	 if (`csko' == 	3110	)
	quietly replace `varlist'=	20206	 if (`csko' == 	3111	)
	quietly replace `varlist'=	20218	 if (`csko' == 	3112	)
	quietly replace `varlist'=	20211	 if (`csko' == 	3113	)
	quietly replace `varlist'=	20209	 if (`csko' == 	3114	)
	quietly replace `varlist'=	20207	 if (`csko' == 	3115	)
	quietly replace `varlist'=	20206	 if (`csko' == 	3116	)
	quietly replace `varlist'=	20205	 if (`csko' == 	3117	)
	quietly replace `varlist'=	20202	 if (`csko' == 	3118	)
	quietly replace `varlist'=	20299	 if (`csko' == 	3119	)
	quietly replace `varlist'=	20210	 if (`csko' == 	3120	)
	quietly replace `varlist'=	20210	 if (`csko' == 	3121	)
	quietly replace `varlist'=	20210	 if (`csko' == 	3122	)
	quietly replace `varlist'=	20210	 if (`csko' == 	3123	)
	quietly replace `varlist'=	20209	 if (`csko' == 	3130	)
	quietly replace `varlist'=	20214	 if (`csko' == 	3131	)
	quietly replace `varlist'=	20214	 if (`csko' == 	3132	)
	quietly replace `varlist'=	20507	 if (`csko' == 	3133	)
	quietly replace `varlist'=	20209	 if (`csko' == 	3139	)
	quietly replace `varlist'=	20400	 if (`csko' == 	3140	)
	quietly replace `varlist'=	20402	 if (`csko' == 	3141	)
	quietly replace `varlist'=	20402	 if (`csko' == 	3142	)
	quietly replace `varlist'=	20401	 if (`csko' == 	3143	)
	quietly replace `varlist'=	20401	 if (`csko' == 	3144	)
	quietly replace `varlist'=	20401	 if (`csko' == 	3145	)
	quietly replace `varlist'=	20231	 if (`csko' == 	3150	)
	quietly replace `varlist'=	30200	 if (`csko' == 	3151	)
	quietly replace `varlist'=	20231	 if (`csko' == 	3152	)
	quietly replace `varlist'=	20299	 if (`csko' == 	3200	)
	quietly replace `varlist'=	20299	 if (`csko' == 	3210	)
	quietly replace `varlist'=	20299	 if (`csko' == 	3211	)
	quietly replace `varlist'=	20300	 if (`csko' == 	3212	)
	quietly replace `varlist'=	20300	 if (`csko' == 	3213	)
	quietly replace `varlist'=	20599	 if (`csko' == 	3220	)
	quietly replace `varlist'=	20508	 if (`csko' == 	3221	)
	quietly replace `varlist'=	20599	 if (`csko' == 	3222	)
	quietly replace `varlist'=	41402	 if (`csko' == 	3223	)
	quietly replace `varlist'=	41403	 if (`csko' == 	3224	)
	quietly replace `varlist'=	20599	 if (`csko' == 	3225	)
	quietly replace `varlist'=	20599	 if (`csko' == 	3226	)
	quietly replace `varlist'=	20306	 if (`csko' == 	3227	)
	quietly replace `varlist'=	20506	 if (`csko' == 	3228	)
	quietly replace `varlist'=	20599	 if (`csko' == 	3229	)
	quietly replace `varlist'=	20508	 if (`csko' == 	3230	)
	quietly replace `varlist'=	20508	 if (`csko' == 	3231	)
	quietly replace `varlist'=	20508	 if (`csko' == 	3232	)
	quietly replace `varlist'=	20502	 if (`csko' == 	3240	)
	quietly replace `varlist'=	20502	 if (`csko' == 	3241	)
	quietly replace `varlist'=	20708	 if (`csko' == 	3242	)
	quietly replace `varlist'=	20899	 if (`csko' == 	3300	)
	quietly replace `varlist'=	20803	 if (`csko' == 	3310	)
	quietly replace `varlist'=	20803	 if (`csko' == 	3310	)
	quietly replace `varlist'=	20804	 if (`csko' == 	3320	)
	quietly replace `varlist'=	20804	 if (`csko' == 	3320	)
	quietly replace `varlist'=	20805	 if (`csko' == 	3330	)
	quietly replace `varlist'=	20805	 if (`csko' == 	3330	)
	quietly replace `varlist'=	20899	 if (`csko' == 	3340	)
	quietly replace `varlist'=	20899	 if (`csko' == 	3340	)
	quietly replace `varlist'=	40500	 if (`csko' == 	3400	)
	quietly replace `varlist'=	40500	 if (`csko' == 	3410	)
	quietly replace `varlist'=	40502	 if (`csko' == 	3411	)
	quietly replace `varlist'=	40504	 if (`csko' == 	3412	)
	quietly replace `varlist'=	40602	 if (`csko' == 	3413	)
	quietly replace `varlist'=	40704	 if (`csko' == 	3414	)
	quietly replace `varlist'=	40102	 if (`csko' == 	3415	)
	quietly replace `varlist'=	40101	 if (`csko' == 	3416	)
	quietly replace `varlist'=	40505	 if (`csko' == 	3417	)
	quietly replace `varlist'=	40500	 if (`csko' == 	3419	)
	quietly replace `varlist'=	40103	 if (`csko' == 	3420	)
	quietly replace `varlist'=	40103	 if (`csko' == 	3421	)
	quietly replace `varlist'=	40103	 if (`csko' == 	3422	)
	quietly replace `varlist'=	40703	 if (`csko' == 	3423	)
	quietly replace `varlist'=	40103	 if (`csko' == 	3429	)
	quietly replace `varlist'=	30101	 if (`csko' == 	3430	)
	quietly replace `varlist'=	30102	 if (`csko' == 	3431	)
	quietly replace `varlist'=	20700	 if (`csko' == 	3432	)
	quietly replace `varlist'=	20603	 if (`csko' == 	3433	)
	quietly replace `varlist'=	20602	 if (`csko' == 	3434	)
	quietly replace `varlist'=	30102	 if (`csko' == 	3439	)
	quietly replace `varlist'=	30101	 if (`csko' == 	3440	)
	quietly replace `varlist'=	30101	 if (`csko' == 	3441	)
	quietly replace `varlist'=	30101	 if (`csko' == 	3442	)
	quietly replace `varlist'=	30101	 if (`csko' == 	3443	)
	quietly replace `varlist'=	30101	 if (`csko' == 	3444	)
	quietly replace `varlist'=	30101	 if (`csko' == 	3449	)
	quietly replace `varlist'=	30201	 if (`csko' == 	3450	)
	quietly replace `varlist'=	30201	 if (`csko' == 	3450	)
	quietly replace `varlist'=	20709	 if (`csko' == 	3460	)
	quietly replace `varlist'=	20709	 if (`csko' == 	3460	)
	quietly replace `varlist'=	20900	 if (`csko' == 	3470	)
	quietly replace `varlist'=	20906	 if (`csko' == 	3471	)
	quietly replace `varlist'=	21004	 if (`csko' == 	3472	)
	quietly replace `varlist'=	20902	 if (`csko' == 	3473	)
	quietly replace `varlist'=	20999	 if (`csko' == 	3474	)
	quietly replace `varlist'=	20907	 if (`csko' == 	3475	)
	quietly replace `varlist'=	20708	 if (`csko' == 	3480	)
	quietly replace `varlist'=	20708	 if (`csko' == 	3480	)
	quietly replace `varlist'=	30100	 if (`csko' == 	4000	)
	quietly replace `varlist'=	30100	 if (`csko' == 	4100	)
	quietly replace `varlist'=	30102	 if (`csko' == 	4110	)
	quietly replace `varlist'=	30102	 if (`csko' == 	4111	)
	quietly replace `varlist'=	30102	 if (`csko' == 	4112	)
	quietly replace `varlist'=	30102	 if (`csko' == 	4113	)
	quietly replace `varlist'=	30102	 if (`csko' == 	4114	)
	quietly replace `varlist'=	30102	 if (`csko' == 	4115	)
	quietly replace `varlist'=	30102	 if (`csko' == 	4120	)
	quietly replace `varlist'=	30102	 if (`csko' == 	4121	)
	quietly replace `varlist'=	30102	 if (`csko' == 	4122	)
	quietly replace `varlist'=	40206	 if (`csko' == 	4130	)
	quietly replace `varlist'=	40206	 if (`csko' == 	4131	)
	quietly replace `varlist'=	40206	 if (`csko' == 	4132	)
	quietly replace `varlist'=	40206	 if (`csko' == 	4133	)
	quietly replace `varlist'=	30199	 if (`csko' == 	4140	)
	quietly replace `varlist'=	30199	 if (`csko' == 	4141	)
	quietly replace `varlist'=	40207	 if (`csko' == 	4142	)
	quietly replace `varlist'=	30199	 if (`csko' == 	4143	)
	quietly replace `varlist'=	30199	 if (`csko' == 	4144	)
	quietly replace `varlist'=	30199	 if (`csko' == 	4190	)
	quietly replace `varlist'=	30199	 if (`csko' == 	4190	)
	quietly replace `varlist'=	40000	 if (`csko' == 	4200	)
	quietly replace `varlist'=	40599	 if (`csko' == 	4210	)
	quietly replace `varlist'=	40599	 if (`csko' == 	4211	)
	quietly replace `varlist'=	40599	 if (`csko' == 	4212	)
	quietly replace `varlist'=	41399	 if (`csko' == 	4213	)
	quietly replace `varlist'=	40505	 if (`csko' == 	4214	)
	quietly replace `varlist'=	40501	 if (`csko' == 	4215	)
	quietly replace `varlist'=	40000	 if (`csko' == 	4220	)
	quietly replace `varlist'=	40704	 if (`csko' == 	4221	)
	quietly replace `varlist'=	40000	 if (`csko' == 	4222	)
	quietly replace `varlist'=	40401	 if (`csko' == 	4223	)
	quietly replace `varlist'=	40000	 if (`csko' == 	5000	)
	quietly replace `varlist'=	41000	 if (`csko' == 	5100	)
	quietly replace `varlist'=	40704	 if (`csko' == 	5110	)
	quietly replace `varlist'=	40704	 if (`csko' == 	5111	)
	quietly replace `varlist'=	40201	 if (`csko' == 	5112	)
	quietly replace `varlist'=	40704	 if (`csko' == 	5113	)
	quietly replace `varlist'=	40300	 if (`csko' == 	5120	)
	quietly replace `varlist'=	40301	 if (`csko' == 	5121	)
	quietly replace `varlist'=	40302	 if (`csko' == 	5122	)
	quietly replace `varlist'=	40302	 if (`csko' == 	5123	)
	quietly replace `varlist'=	40300	 if (`csko' == 	5129	)
	quietly replace `varlist'=	41001	 if (`csko' == 	5130	)
	quietly replace `varlist'=	41001	 if (`csko' == 	5131	)
	quietly replace `varlist'=	41001	 if (`csko' == 	5132	)
	quietly replace `varlist'=	41001	 if (`csko' == 	5133	)
	quietly replace `varlist'=	41001	 if (`csko' == 	5139	)
	quietly replace `varlist'=	41099	 if (`csko' == 	5140	)
	quietly replace `varlist'=	41003	 if (`csko' == 	5141	)
	quietly replace `varlist'=	41001	 if (`csko' == 	5142	)
	quietly replace `varlist'=	41006	 if (`csko' == 	5143	)
	quietly replace `varlist'=	41099	 if (`csko' == 	5149	)
	quietly replace `varlist'=	41099	 if (`csko' == 	5150	)
	quietly replace `varlist'=	41099	 if (`csko' == 	5151	)
	quietly replace `varlist'=	41099	 if (`csko' == 	5152	)
	quietly replace `varlist'=	30200	 if (`csko' == 	5160	)
	quietly replace `varlist'=	30203	 if (`csko' == 	5161	)
	quietly replace `varlist'=	30201	 if (`csko' == 	5162	)
	quietly replace `varlist'=	30201	 if (`csko' == 	5163	)
	quietly replace `varlist'=	30299	 if (`csko' == 	5169	)
	quietly replace `varlist'=	40102	 if (`csko' == 	5200	)
	quietly replace `varlist'=	40102	 if (`csko' == 	5210	)
	quietly replace `varlist'=	40102	 if (`csko' == 	5210	)
	quietly replace `varlist'=	40102	 if (`csko' == 	5220	)
	quietly replace `varlist'=	40102	 if (`csko' == 	5220	)
	quietly replace `varlist'=	40102	 if (`csko' == 	5230	)
	quietly replace `varlist'=	40102	 if (`csko' == 	5230	)
	quietly replace `varlist'=	50000	 if (`csko' == 	6000	)
	quietly replace `varlist'=	50000	 if (`csko' == 	6100	)
	quietly replace `varlist'=	50102	 if (`csko' == 	6110	)
	quietly replace `varlist'=	50102	 if (`csko' == 	6111	)
	quietly replace `varlist'=	50200	 if (`csko' == 	6112	)
	quietly replace `varlist'=	50102	 if (`csko' == 	6113	)
	quietly replace `varlist'=	50102	 if (`csko' == 	6114	)
	quietly replace `varlist'=	50300	 if (`csko' == 	6120	)
	quietly replace `varlist'=	50302	 if (`csko' == 	6121	)
	quietly replace `varlist'=	50302	 if (`csko' == 	6122	)
	quietly replace `varlist'=	50303	 if (`csko' == 	6123	)
	quietly replace `varlist'=	50300	 if (`csko' == 	6124	)
	quietly replace `varlist'=	50399	 if (`csko' == 	6129	)
	quietly replace `varlist'=	50100	 if (`csko' == 	6130	)
	quietly replace `varlist'=	50100	 if (`csko' == 	6130	)
	quietly replace `varlist'=	50200	 if (`csko' == 	6140	)
	quietly replace `varlist'=	50200	 if (`csko' == 	6141	)
	quietly replace `varlist'=	50200	 if (`csko' == 	6142	)
	quietly replace `varlist'=	50400	 if (`csko' == 	6150	)
	quietly replace `varlist'=	50402	 if (`csko' == 	6151	)
	quietly replace `varlist'=	50403	 if (`csko' == 	6152	)
	quietly replace `varlist'=	50403	 if (`csko' == 	6153	)
	quietly replace `varlist'=	50399	 if (`csko' == 	6154	)
	quietly replace `varlist'=	50000	 if (`csko' == 	6200	)
	quietly replace `varlist'=	50000	 if (`csko' == 	6210	)
	quietly replace `varlist'=	50000	 if (`csko' == 	6210	)
	quietly replace `varlist'=	60000	 if (`csko' == 	7000	)
	quietly replace `varlist'=	62900	 if (`csko' == 	7100	)
	quietly replace `varlist'=	61600	 if (`csko' == 	7110	)
	quietly replace `varlist'=	61601	 if (`csko' == 	7111	)
	quietly replace `varlist'=	62902	 if (`csko' == 	7112	)
	quietly replace `varlist'=	62901	 if (`csko' == 	7113	)
	quietly replace `varlist'=	62900	 if (`csko' == 	7120	)
	quietly replace `varlist'=	62901	 if (`csko' == 	7121	)
	quietly replace `varlist'=	62901	 if (`csko' == 	7122	)
	quietly replace `varlist'=	62901	 if (`csko' == 	7123	)
	quietly replace `varlist'=	60600	 if (`csko' == 	7124	)
	quietly replace `varlist'=	62999	 if (`csko' == 	7129	)
	quietly replace `varlist'=	62904	 if (`csko' == 	7130	)
	quietly replace `varlist'=	62901	 if (`csko' == 	7131	)
	quietly replace `varlist'=	62904	 if (`csko' == 	7132	)
	quietly replace `varlist'=	62901	 if (`csko' == 	7133	)
	quietly replace `varlist'=	62903	 if (`csko' == 	7134	)
	quietly replace `varlist'=	62904	 if (`csko' == 	7135	)
	quietly replace `varlist'=	62903	 if (`csko' == 	7136	)
	quietly replace `varlist'=	62903	 if (`csko' == 	7137	)
	quietly replace `varlist'=	62904	 if (`csko' == 	7140	)
	quietly replace `varlist'=	62904	 if (`csko' == 	7141	)
	quietly replace `varlist'=	62904	 if (`csko' == 	7142	)
	quietly replace `varlist'=	62904	 if (`csko' == 	7143	)
	quietly replace `varlist'=	61800	 if (`csko' == 	7200	)
	quietly replace `varlist'=	61800	 if (`csko' == 	7210	)
	quietly replace `varlist'=	61804	 if (`csko' == 	7211	)
	quietly replace `varlist'=	61802	 if (`csko' == 	7212	)
	quietly replace `varlist'=	61899	 if (`csko' == 	7213	)
	quietly replace `varlist'=	61901	 if (`csko' == 	7214	)
	quietly replace `varlist'=	62903	 if (`csko' == 	7215	)
	quietly replace `varlist'=	63004	 if (`csko' == 	7216	)
	quietly replace `varlist'=	61800	 if (`csko' == 	7220	)
	quietly replace `varlist'=	61802	 if (`csko' == 	7221	)
	quietly replace `varlist'=	61899	 if (`csko' == 	7222	)
	quietly replace `varlist'=	62003	 if (`csko' == 	7223	)
	quietly replace `varlist'=	61801	 if (`csko' == 	7224	)
	quietly replace `varlist'=	62000	 if (`csko' == 	7230	)
	quietly replace `varlist'=	62200	 if (`csko' == 	7231	)
	quietly replace `varlist'=	62303	 if (`csko' == 	7232	)
	quietly replace `varlist'=	62105	 if (`csko' == 	7233	)
	quietly replace `varlist'=	62903	 if (`csko' == 	7240	)
	quietly replace `varlist'=	62903	 if (`csko' == 	7241	)
	quietly replace `varlist'=	62504	 if (`csko' == 	7242	)
	quietly replace `varlist'=	62504	 if (`csko' == 	7243	)
	quietly replace `varlist'=	62504	 if (`csko' == 	7244	)
	quietly replace `varlist'=	62903	 if (`csko' == 	7245	)
	quietly replace `varlist'=	60903	 if (`csko' == 	7300	)
	quietly replace `varlist'=	62600	 if (`csko' == 	7310	)
	quietly replace `varlist'=	62600	 if (`csko' == 	7311	)
	quietly replace `varlist'=	60902	 if (`csko' == 	7312	)
	quietly replace `varlist'=	60903	 if (`csko' == 	7313	)
	quietly replace `varlist'=	61505	 if (`csko' == 	7320	)
	quietly replace `varlist'=	61505	 if (`csko' == 	7321	)
	quietly replace `varlist'=	61503	 if (`csko' == 	7322	)
	quietly replace `varlist'=	60903	 if (`csko' == 	7323	)
	quietly replace `varlist'=	60903	 if (`csko' == 	7324	)
	quietly replace `varlist'=	60903	 if (`csko' == 	7330	)
	quietly replace `varlist'=	60903	 if (`csko' == 	7331	)
	quietly replace `varlist'=	60903	 if (`csko' == 	7332	)
	quietly replace `varlist'=	60801	 if (`csko' == 	7340	)
	quietly replace `varlist'=	60801	 if (`csko' == 	7341	)
	quietly replace `varlist'=	60801	 if (`csko' == 	7342	)
	quietly replace `varlist'=	60801	 if (`csko' == 	7343	)
	quietly replace `varlist'=	69900	 if (`csko' == 	7344	)
	quietly replace `varlist'=	60801	 if (`csko' == 	7345	)
	quietly replace `varlist'=	60801	 if (`csko' == 	7346	)
	quietly replace `varlist'=	69900	 if (`csko' == 	7400	)
	quietly replace `varlist'=	60200	 if (`csko' == 	7410	)
	quietly replace `varlist'=	60104	 if (`csko' == 	7411	)
	quietly replace `varlist'=	60201	 if (`csko' == 	7412	)
	quietly replace `varlist'=	60204	 if (`csko' == 	7413	)
	quietly replace `varlist'=	60106	 if (`csko' == 	7414	)
	quietly replace `varlist'=	60299	 if (`csko' == 	7415	)
	quietly replace `varlist'=	60300	 if (`csko' == 	7416	)
	quietly replace `varlist'=	60600	 if (`csko' == 	7420	)
	quietly replace `varlist'=	60600	 if (`csko' == 	7421	)
	quietly replace `varlist'=	60600	 if (`csko' == 	7422	)
	quietly replace `varlist'=	60600	 if (`csko' == 	7423	)
	quietly replace `varlist'=	60903	 if (`csko' == 	7424	)
	quietly replace `varlist'=	60501	 if (`csko' == 	7430	)
	quietly replace `varlist'=	60401	 if (`csko' == 	7431	)
	quietly replace `varlist'=	60403	 if (`csko' == 	7432	)
	quietly replace `varlist'=	60501	 if (`csko' == 	7433	)
	quietly replace `varlist'=	60502	 if (`csko' == 	7434	)
	quietly replace `varlist'=	60501	 if (`csko' == 	7435	)
	quietly replace `varlist'=	60501	 if (`csko' == 	7436	)
	quietly replace `varlist'=	60502	 if (`csko' == 	7437	)
	quietly replace `varlist'=	60504	 if (`csko' == 	7440	)
	quietly replace `varlist'=	60502	 if (`csko' == 	7441	)
	quietly replace `varlist'=	60504	 if (`csko' == 	7442	)
	quietly replace `varlist'=	60000	 if (`csko' == 	8000	)
	quietly replace `varlist'=	60000	 if (`csko' == 	8100	)
	quietly replace `varlist'=	61600	 if (`csko' == 	8110	)
	quietly replace `varlist'=	61601	 if (`csko' == 	8111	)
	quietly replace `varlist'=	61601	 if (`csko' == 	8112	)
	quietly replace `varlist'=	61602	 if (`csko' == 	8113	)
	quietly replace `varlist'=	61700	 if (`csko' == 	8120	)
	quietly replace `varlist'=	61700	 if (`csko' == 	8121	)
	quietly replace `varlist'=	61700	 if (`csko' == 	8122	)
	quietly replace `varlist'=	61700	 if (`csko' == 	8123	)
	quietly replace `varlist'=	61700	 if (`csko' == 	8124	)
	quietly replace `varlist'=	61500	 if (`csko' == 	8130	)
	quietly replace `varlist'=	61500	 if (`csko' == 	8131	)
	quietly replace `varlist'=	61500	 if (`csko' == 	8139	)
	quietly replace `varlist'=	60600	 if (`csko' == 	8140	)
	quietly replace `varlist'=	60601	 if (`csko' == 	8141	)
	quietly replace `varlist'=	60701	 if (`csko' == 	8142	)
	quietly replace `varlist'=	60701	 if (`csko' == 	8143	)
	quietly replace `varlist'=	61100	 if (`csko' == 	8150	)
	quietly replace `varlist'=	61100	 if (`csko' == 	8151	)
	quietly replace `varlist'=	61100	 if (`csko' == 	8152	)
	quietly replace `varlist'=	61100	 if (`csko' == 	8153	)
	quietly replace `varlist'=	61100	 if (`csko' == 	8154	)
	quietly replace `varlist'=	61001	 if (`csko' == 	8155	)
	quietly replace `varlist'=	61100	 if (`csko' == 	8159	)
	quietly replace `varlist'=	62801	 if (`csko' == 	8160	)
	quietly replace `varlist'=	62801	 if (`csko' == 	8161	)
	quietly replace `varlist'=	62801	 if (`csko' == 	8162	)
	quietly replace `varlist'=	62006	 if (`csko' == 	8163	)
	quietly replace `varlist'=	69900	 if (`csko' == 	8170	)
	quietly replace `varlist'=	69900	 if (`csko' == 	8171	)
	quietly replace `varlist'=	69900	 if (`csko' == 	8172	)
	quietly replace `varlist'=	60000	 if (`csko' == 	8200	)
	quietly replace `varlist'=	61700	 if (`csko' == 	8210	)
	quietly replace `varlist'=	62003	 if (`csko' == 	8211	)
	quietly replace `varlist'=	61501	 if (`csko' == 	8212	)
	quietly replace `varlist'=	61100	 if (`csko' == 	8220	)
	quietly replace `varlist'=	61100	 if (`csko' == 	8221	)
	quietly replace `varlist'=	61109	 if (`csko' == 	8222	)
	quietly replace `varlist'=	61803	 if (`csko' == 	8223	)
	quietly replace `varlist'=	61199	 if (`csko' == 	8224	)
	quietly replace `varlist'=	61199	 if (`csko' == 	8229	)
	quietly replace `varlist'=	61400	 if (`csko' == 	8230	)
	quietly replace `varlist'=	61401	 if (`csko' == 	8231	)
	quietly replace `varlist'=	61402	 if (`csko' == 	8232	)
	quietly replace `varlist'=	60603	 if (`csko' == 	8230	)
	quietly replace `varlist'=	60603	 if (`csko' == 	8240	)
	quietly replace `varlist'=	60801	 if (`csko' == 	8250	)
	quietly replace `varlist'=	60801	 if (`csko' == 	8251	)
	quietly replace `varlist'=	60801	 if (`csko' == 	8252	)
	quietly replace `varlist'=	60702	 if (`csko' == 	8253	)
	quietly replace `varlist'=	60500	 if (`csko' == 	8260	)
	quietly replace `varlist'=	60401	 if (`csko' == 	8261	)
	quietly replace `varlist'=	60403	 if (`csko' == 	8262	)
	quietly replace `varlist'=	60403	 if (`csko' == 	8263	)
	quietly replace `varlist'=	60406	 if (`csko' == 	8264	)
	quietly replace `varlist'=	60502	 if (`csko' == 	8265	)
	quietly replace `varlist'=	60504	 if (`csko' == 	8266	)
	quietly replace `varlist'=	60599	 if (`csko' == 	8269	)
	quietly replace `varlist'=	60200	 if (`csko' == 	8270	)
	quietly replace `varlist'=	60105	 if (`csko' == 	8271	)
	quietly replace `varlist'=	60204	 if (`csko' == 	8272	)
	quietly replace `varlist'=	60100	 if (`csko' == 	8273	)
	quietly replace `varlist'=	60200	 if (`csko' == 	8274	)
	quietly replace `varlist'=	60106	 if (`csko' == 	8275	)
	quietly replace `varlist'=	60103	 if (`csko' == 	8276	)
	quietly replace `varlist'=	60206	 if (`csko' == 	8277	)
	quietly replace `varlist'=	60206	 if (`csko' == 	8278	)
	quietly replace `varlist'=	60300	 if (`csko' == 	8279	)
	quietly replace `varlist'=	62001	 if (`csko' == 	8280	)
	quietly replace `varlist'=	62001	 if (`csko' == 	8281	)
	quietly replace `varlist'=	62504	 if (`csko' == 	8282	)
	quietly replace `varlist'=	62504	 if (`csko' == 	8283	)
	quietly replace `varlist'=	62001	 if (`csko' == 	8284	)
	quietly replace `varlist'=	60603	 if (`csko' == 	8285	)
	quietly replace `varlist'=	60702	 if (`csko' == 	8286	)
	quietly replace `varlist'=	69900	 if (`csko' == 	8290	)
	quietly replace `varlist'=	69900	 if (`csko' == 	8290	)
	quietly replace `varlist'=	63000	 if (`csko' == 	8300	)
	quietly replace `varlist'=	63002	 if (`csko' == 	8310	)
	quietly replace `varlist'=	63002	 if (`csko' == 	8311	)
	quietly replace `varlist'=	63002	 if (`csko' == 	8312	)
	quietly replace `varlist'=	40202	 if (`csko' == 	8320	)
	quietly replace `varlist'=	40202	 if (`csko' == 	8321	)
	quietly replace `varlist'=	40202	 if (`csko' == 	8322	)
	quietly replace `varlist'=	40202	 if (`csko' == 	8323	)
	quietly replace `varlist'=	40202	 if (`csko' == 	8324	)
	quietly replace `varlist'=	50505	 if (`csko' == 	8330	)
	quietly replace `varlist'=	50505	 if (`csko' == 	8331	)
	quietly replace `varlist'=	50505	 if (`csko' == 	8332	)
	quietly replace `varlist'=	63005	 if (`csko' == 	8333	)
	quietly replace `varlist'=	63005	 if (`csko' == 	8334	)
	quietly replace `varlist'=	63004	 if (`csko' == 	8340	)
	quietly replace `varlist'=	63004	 if (`csko' == 	8340	)
	quietly replace `varlist'=	49900	 if (`csko' == 	9000	)
	quietly replace `varlist'=	40102	 if (`csko' == 	9100	)
	quietly replace `varlist'=	40102	 if (`csko' == 	9110	)
	quietly replace `varlist'=	40102	 if (`csko' == 	9111	)
	quietly replace `varlist'=	40102	 if (`csko' == 	9112	)
	quietly replace `varlist'=	40102	 if (`csko' == 	9113	)
	quietly replace `varlist'=	41099	 if (`csko' == 	9120	)
	quietly replace `varlist'=	41099	 if (`csko' == 	9120	)
	quietly replace `varlist'=	40908	 if (`csko' == 	9130	)
	quietly replace `varlist'=	40908	 if (`csko' == 	9131	)
	quietly replace `varlist'=	40908	 if (`csko' == 	9132	)
	quietly replace `varlist'=	41002	 if (`csko' == 	9133	)
	quietly replace `varlist'=	40908	 if (`csko' == 	9140	)
	quietly replace `varlist'=	40601	 if (`csko' == 	9141	)
	quietly replace `varlist'=	40908	 if (`csko' == 	9142	)
	quietly replace `varlist'=	40207	 if (`csko' == 	9150	)
	quietly replace `varlist'=	40207	 if (`csko' == 	9151	)
	quietly replace `varlist'=	30202	 if (`csko' == 	9152	)
	quietly replace `varlist'=	49900	 if (`csko' == 	9153	)
	quietly replace `varlist'=	40104	 if (`csko' == 	9160	)
	quietly replace `varlist'=	40104	 if (`csko' == 	9161	)
	quietly replace `varlist'=	40908	 if (`csko' == 	9162	)
	quietly replace `varlist'=	50000	 if (`csko' == 	9200	)
	quietly replace `varlist'=	50000	 if (`csko' == 	9210	)
	quietly replace `varlist'=	50100	 if (`csko' == 	9211	)
	quietly replace `varlist'=	50200	 if (`csko' == 	9212	)
	quietly replace `varlist'=	50400	 if (`csko' == 	9213	)
	quietly replace `varlist'=	61601	 if (`csko' == 	9300	)
	quietly replace `varlist'=	61601	 if (`csko' == 	9310	)
	quietly replace `varlist'=	61601	 if (`csko' == 	9311	)
	quietly replace `varlist'=	62902	 if (`csko' == 	9312	)
	quietly replace `varlist'=	62900	 if (`csko' == 	9313	)
	quietly replace `varlist'=	63199	 if (`csko' == 	9320	)
	quietly replace `varlist'=	63199	 if (`csko' == 	9321	)
	quietly replace `varlist'=	63105	 if (`csko' == 	9322	)
	quietly replace `varlist'=	40202	 if (`csko' == 	9330	)
	quietly replace `varlist'=	40202	 if (`csko' == 	9331	)
	quietly replace `varlist'=	40202	 if (`csko' == 	9332	)
	quietly replace `varlist'=	40205	 if (`csko' == 	9333	)
	quietly replace `varlist'=	70000	 if (`csko' == 	0000	)

end

